home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / frmwiz / captnfrm.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-01-15  |  5.5 KB  |  186 lines
  1. VERSION 2.00
  2. Begin Form CaptnFrm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form Wizard - Form Caption & Name"
  6.    ClientHeight    =   2475
  7.    ClientLeft      =   4455
  8.    ClientTop       =   1425
  9.    ClientWidth     =   5040
  10.    ControlBox      =   0   'False
  11.    Height          =   2880
  12.    HelpContextID   =   4
  13.    Icon            =   CAPTNFRM.FRX:0000
  14.    Left            =   4395
  15.    LinkTopic       =   "Form2"
  16.    MaxButton       =   0   'False
  17.    ScaleHeight     =   2475
  18.    ScaleWidth      =   5040
  19.    Top             =   1080
  20.    Width           =   5160
  21.    Begin SSCommand BtnHelp 
  22.       Caption         =   "&Help"
  23.       Font3D          =   2  'Raised w/heavy shading
  24.       Height          =   615
  25.       Left            =   3840
  26.       Picture         =   CAPTNFRM.FRX:0302
  27.       TabIndex        =   9
  28.       Top             =   1380
  29.       Width           =   915
  30.    End
  31.    Begin SSPanel cMsg 
  32.       Align           =   2  'Align Bottom
  33.       Alignment       =   1  'Left Justify - MIDDLE
  34.       BevelInner      =   1  'Inset
  35.       BorderWidth     =   2
  36.       Height          =   375
  37.       Left            =   0
  38.       TabIndex        =   8
  39.       Top             =   2100
  40.       Width           =   5040
  41.    End
  42.    Begin SSCommand BtnFinish 
  43.       AutoSize        =   2  'Adjust Button Size To Picture
  44.       Caption         =   "&Finish"
  45.       Enabled         =   0   'False
  46.       Font3D          =   2  'Raised w/heavy shading
  47.       Height          =   615
  48.       Left            =   2940
  49.       Picture         =   CAPTNFRM.FRX:0604
  50.       TabIndex        =   7
  51.       Top             =   1380
  52.       Width           =   915
  53.    End
  54.    Begin SSCommand BtnCancel 
  55.       AutoSize        =   2  'Adjust Button Size To Picture
  56.       Caption         =   "&Cancel"
  57.       Font3D          =   2  'Raised w/heavy shading
  58.       Height          =   615
  59.       Left            =   2040
  60.       Picture         =   CAPTNFRM.FRX:0906
  61.       TabIndex        =   6
  62.       Tag             =   "Cancel building the form"
  63.       Top             =   1380
  64.       Width           =   915
  65.    End
  66.    Begin SSCommand BtnNext 
  67.       AutoSize        =   2  'Adjust Button Size To Picture
  68.       Caption         =   "&Next"
  69.       Font3D          =   2  'Raised w/heavy shading
  70.       Height          =   615
  71.       Left            =   1140
  72.       Picture         =   CAPTNFRM.FRX:0C08
  73.       TabIndex        =   5
  74.       Tag             =   "Proceed to the next step"
  75.       Top             =   1380
  76.       Width           =   915
  77.    End
  78.    Begin SSCommand BtnPrev 
  79.       AutoSize        =   2  'Adjust Button Size To Picture
  80.       Caption         =   "&Previous"
  81.       Enabled         =   0   'False
  82.       Font3D          =   2  'Raised w/heavy shading
  83.       Height          =   615
  84.       Left            =   240
  85.       Picture         =   CAPTNFRM.FRX:0F0A
  86.       TabIndex        =   4
  87.       Top             =   1380
  88.       Width           =   915
  89.    End
  90.    Begin TextBox TxtName 
  91.       BackColor       =   &H00C0C0C0&
  92.       Height          =   375
  93.       Left            =   1125
  94.       TabIndex        =   2
  95.       Tag             =   "Name for the form you are building"
  96.       Text            =   "Name"
  97.       Top             =   780
  98.       Width           =   3675
  99.    End
  100.    Begin TextBox TxtCaption 
  101.       BackColor       =   &H00C0C0C0&
  102.       Height          =   375
  103.       Left            =   1140
  104.       TabIndex        =   0
  105.       Tag             =   "Caption for the form you are building"
  106.       Text            =   "Caption"
  107.       Top             =   300
  108.       Width           =   3675
  109.    End
  110.    Begin Label Label1 
  111.       Alignment       =   1  'Right Justify
  112.       AutoSize        =   -1  'True
  113.       BackColor       =   &H00C0C0C0&
  114.       Caption         =   "Name"
  115.       ForeColor       =   &H00FF0000&
  116.       Height          =   195
  117.       Index           =   1
  118.       Left            =   465
  119.       TabIndex        =   3
  120.       Top             =   840
  121.       Width           =   495
  122.    End
  123.    Begin Label Label1 
  124.       Alignment       =   1  'Right Justify
  125.       AutoSize        =   -1  'True
  126.       BackColor       =   &H00C0C0C0&
  127.       Caption         =   "Caption"
  128.       ForeColor       =   &H00FF0000&
  129.       Height          =   195
  130.       Index           =   0
  131.       Left            =   315
  132.       TabIndex        =   1
  133.       Top             =   360
  134.       Width           =   660
  135.    End
  136. Option Explicit
  137. Sub BtnCancel_Click ()
  138.     EndItNow
  139. End Sub
  140. Sub BtnCancel_GotFocus ()
  141.     Cmsg.Caption = BtnCancel.Tag
  142. End Sub
  143. Sub BtnCancel_LostFocus ()
  144.     Cmsg.Caption = ""
  145. End Sub
  146. Sub BtnHelp_Click ()
  147.     SendKeys "{F1}"
  148. End Sub
  149. Sub BtnNext_Click ()
  150.     DataSpec.Show MODELESS
  151.     CaptnFrm.Hide
  152. End Sub
  153. Sub BtnNext_GotFocus ()
  154.     Cmsg.Caption = BtnNext.Tag
  155. End Sub
  156. Sub BtnNext_LostFocus ()
  157.     Cmsg.Caption = ""
  158. End Sub
  159. Sub FldGotFocus (PControl As Control)
  160.     PControl.BackColor = BLUE
  161.     PControl.ForeColor = WHITE
  162.     PControl.SelStart = 0
  163.     PControl.SelLength = 1000
  164.     Cmsg.Caption = PControl.Tag
  165. End Sub
  166. Sub FldLostFocus (PControl As Control)
  167.     PControl.BackColor = RB_GRAY
  168.     PControl.ForeColor = BLACK
  169.     Cmsg.Caption = ""
  170. End Sub
  171. Sub Form_Paint ()
  172.     Form3d Me
  173. End Sub
  174. Sub TxtCaption_GotFocus ()
  175.     FldGotFocus TxtCaption
  176. End Sub
  177. Sub TxtCaption_LostFocus ()
  178.     FldLostFocus TxtCaption
  179. End Sub
  180. Sub TxtName_GotFocus ()
  181.     FldGotFocus TxtName
  182. End Sub
  183. Sub TxtName_LostFocus ()
  184.     FldLostFocus TxtName
  185. End Sub
  186.